home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1998 December / cd joystick no99 decembre 1998.iso / Data / WIN95 / COMM / zow310.exe / INSTALL.FIL / SCRIPT / RXSAMPLE / TUTORIAL / 4_MODEM.ZRX < prev    next >
Encoding:
Text File  |  1996-08-26  |  341 b   |  20 lines
  1. /* REXX */
  2.  
  3. /* send something to the modem and wait for an anwser */
  4. CALL ZocSend "ATZ^M"
  5.  
  6. /* tell ZOC to wait 3 seconds max. */
  7. CALL ZocTimeout 3
  8.  
  9. /* wait for answer */
  10. timeout= ZocGetline()
  11. IF timeout=0 THEN DO 
  12.     SAY "THE MODEM SEEMS TO RESET FINE!"
  13. END
  14. ELSE DO
  15.     SAY "THE MODEM SEEMS TO HAVE PROBLEMS!"
  16. END
  17.  
  18. EXIT
  19.  
  20.